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; Detailed Current Edit History 
SECNDS. - get delta system time 
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K 15 
FORSSECNDS - GET DELTA TIME 16-SEP=19 AX/VMS Macro V04-00 Page 1. F 
1603 eae Pi 99: 86: 33 FORRTL.SREIFORSECNDS.MAR;1 8” (1). 1 
1 TITLE ot 5a - GET DELTA TIME 3 
; ZIDENT /1-0 ; File: FORSECNDS.MAR | ; 
4; | ; 
009 5 seeeeeeeeee eee eeAeeee eee AKKKeeeeKeKTAReeeeeKATAeeeeeeeteeeeeeTeTeeeeeets 3 
3* * : 
000 © i= COPYRIGHT (c) 1978, 1980, 1982, 1984 B « | : 
00 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ; 
44 19 ‘* ALL RIGHTS RESERVED. * ; 
° ® | P 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
$008 1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
0 13 ;* INCLUSION OF THE ABOVE gto NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
0000 15 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
44 1$ : 3* TRANSFERRED. a ; 
3* * } ; 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
5000 $9 a CORPORATION. * | 
: * 
0000 32 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 25 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 3 * 
0000 25 ;* * 
0000 26 Stn indica lathe alae initia 
0000 27 ; 
0000 28 ; 
0000 $5 34 é FACILITY: MATH LIBRARY 
0000 0 ;+ 
0000 ST 3 ABSTRACT: 
0000 32 ; 
0000 a3 3 
0000 34 3-- 
0000 3 3 
0000 36 : VERSION: 0 | 
0000 Sf s 
0000 38 ; HISTORY: 
0000 39 ; 
000 40 ; AUTHOR: E 
000 41 ; Jonathan Taylor, 29-Jun-77 : Version 0 
0000 4 : 
0000 43 ; MODIFIED BY: | 
0000 44 ; 
45 ; 
46 ; 
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0000 56 

0000 57 
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3 Detailed Current Edit History ya ioe 1 99:08:53 YABRRTL RET ORSECNOS MAR: 1 


-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 0 of FORSSECNDS 


Add 86400 if negative for midnight. TNH 7-June-78 

Remove FORSFLAG_JACKET. TNH 11=July-78 

Update version number and copyright notice. JBS 16-NOV-78 
Add "'_"' to the PSECT directive. JBS 22-DEC-78 
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0000 85 ; OWN STORAGE: 


FORSSECNDS = GET DELTA TIME 16-SEP=1 AX/VMS Macro Vv04-00 Page F 
5603 DECLARATIONS 6-SEP=1 198¢ 4 9:08: 34 FORRTL. SRIF ORSECNDS.MAR; 1 . a) 1 
59 .SBTTL DECLARATIONS ; 
61 ; ’ 
6¢ : INCLUDE FILES: : 
65 ; NONE ‘ 
0 64 ; 
00 65 ; ‘ 
00 66 : EXTERNAL SYMBOLS: | : 
000 67: NONE F 
000 68 ; 
000 y § ‘ 
999 0 : MACROS: : 
00 71: NONE ; 
0000 7? 
0000 «73; 
8058 a 3 PSECT DECLARATIONS: 
00000000 = 7% .PSECT _FORSCODE PIC, SHR. LONG, EXE, NOWRT 
0000 77 FORS code section 
0000 «=s 78 
0000 «79; | 
0000 80 : EQUATED SYMBOLS: | 
0000 =s«B1 : 
00000004 0000 82 arg =4 : offset of addr of users’ arg | 
0000 «3s 83 | 
0000 «= «Ba gx | 
| 
| 


secs - GET DELTA TIME 19" 5EO- 1388 90:08:36 VAX/VMS Macro v04-00 Page 4. 
FORSSECNDS = get delta system time 6-SEP=1984 11:00:23 CFORRTL.SRCIFORSECNDS.MAR; 1 (4) 
09 § -SBTTL FORSSECNDS - get delta system time 
0 1 3++ 
00 § ; FUNCTIONAL DESCRIPTION: 
000 4 ; Routine FORSSECNDS returns the system time in seconds as 
00 Ss a single precision wheat ing point value minus the value 
$3 : of its single real argument. 
+9 ; CALLING SEQUENCE: 
000 Time_difference.wf.v = FORSSECNDS( time_origin.rf.r) 


INPUT PARAMETERS: 


The time_origin parameter is single precision floating point 
and called by reference. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


Integer Overflow can occur (but it shouldn't) 
Floating Underflow and Overflow can occur. 
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FORSSECNDS = GET DELTA TIME i ab a 90: 0a 334 AX/VMS Macro V04-00 Page 5 
1-002 FORSSECNDS - get delta system time 6-SEP-1984 11:00:23 CFORRTL.SRCIJFORSECNDS.MAR; 1 (5) 
400 1 -ENTRY FORSSECNDS, “M<IV> 
= 6 6 08 008 1 : SUBL Woee SP ; make an 8 word work space 
8 1 8 3; for SNUMTIM 
5S Fs > ee MOVL SP, RO ; RO => work space 
608 130 SNUMTIM_S (RO) i; get system time values 
SE 96 C 01 131 ADDL #2*3, SP ; SP => “hour of day"’ 
mo x —E A 016 #1 § MULW3 (SP)+, #60, RO ; RO = hours * 60 
50 8E& Ad pain 13 ADDW {3P)+, RO : add in ‘minutes of hour"’ 
50 50 3C€ O01D 134 MOVZWL RO, RO 3; get more precision 
50) =63C 4 00 " 135 ULL #66, RO 3 $0 this doesn't overflow 
51 BE C 00 136 MOVZWL (SPS+, R1 ; convert ‘'seconds of minute’ 
50 31 CO 90 é 137 DDL ~—s R71, RO ; and add to total time 
50 50 4— 00 138 CVTILF RO, RO ; convert to floatin ; 
51 6& 4D O02c 139 CvTWwF (SP), R1 : R1 = "hundredths of seconds’ 
51 000043C8 8F 46 it 140 DIVF #100, R1 3 make a fraction 
50 51 «40 0036 = 141 ADDF —R1, RO : add in hundredths 
50 04 B8C 42 0039 146 SUBF @arg(AP), RO ; and get delta time from 
003D 14 3; users’ argument 
07 18 003D 144 BGEQ 10$ ; branch if not negative. 
50 CO0048A8 8F 40 OO3F 145 ADDF #86400., RO ; must have gone by midnight 
0046 146 ; so add # of seconds in 7 day. 
04 0046 147 10$: RET ; RO = delta time 
0047 148 
0047 149 - END 


FORSSECNDS = GET DELTA TIME 19566-1388 90: 03:34 AX/VMS Macro v04-00 Page g 
Symbol table 66-SEP-1984 :00:23 CFORRTL.SRCIJFORSECNDS.MAR; 1 (5) 
ARG = 00000004 
FORSSECNDS 00000000 RG 4 
SYSSNUMTIM eeeeeere GC 1 
tme er nmeeonree mana ne + 
! Psect synopsis ! 
Pane crew emwawren nae + 
PSECT name Allocation PSECT No. Attributes 
¢ we 00000000 < 0.) 69 ( Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000047 ¢ 71.) 7 © Bel PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
bmw ane na non nemo nwo mom 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00:00.09 00:00:01.09 
Command processing 141 00:00:00.56 00:00:03.47 
Pass 102 00:00:00.56 00:00:04.04 
Symbol table sort 0 00:00:00.00 00:00:00.01 
Pass 2 42 00:00:00.34 00:00:01.33 
Symbol table output 1 00:00:00.01 00:00:00.02 
| Psect synopsis output 3 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 326 00:00:01.58 00:00:09.98 


The working set Limit was 1050 pages. - s 

2004 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 3 non-local and 1 local symbols. 
149 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


Beware ner emo wr ecr commana nm + 


Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLB;20 0 SS 5. 
13 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORSECNDS/OBJ=OBJ$:FORSECNDS MSRC$:FORSECNDS/UPDATE=(ENHS:FORSECNDS) 
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